<script>on GotLine cl,zidget short name of this cdput it="Names" into tglobal sepresetScrolladd scroll of me div textHeight of me to clput cl into sepget line cl of meif it is empty thenbeepelseset cursor to watchput short name of this cd into cnpush cdif cn="Manufacturers" thenput it into ttglobal rebuilding,rebuild,BotBarif rebuilding thenput TRUE into genput 1 into e1put number of lines of me into e2elseput FALSE into genput cl into e1put e1 into e2end ifrepeat with e = e1 to e2get line e of medelete first word of itput it into pnput "$" & char 1 to 28 of it into cnif not gen and there is a cd cn thenlock screenset the hilite of bg btn ID zid to FALSEgo cd cnset scroll of fld "Index" to 0unlock screen with iris openelse if rebuild or there is not a cd cn thenput rect of bg btn "Meter" into rput first item of rect of bg btn "Building index:" + 78 into zput z into first item of rput z into third item of rset rect of bg btn "Meter" to rshow bg btn "Building index:"show bg btn "Meter"if there is a window BotBar then hide window BotBarput first item of it into m1put "by" && it into xput fld "Index" of cd "Names" into mput number of lines of m into msput empty into nput ms mod 8 into qrepeat with i=1 to msif i mod 8 = q thenput z+i into third item of rset the rect of bg btn "Meter" to rend ifget line i of mput By(it) into dif char 2 to 99 of item d to 99 of it = xthen put item 1 to d-1 of it & return after nend repeatlock screenget number of lines of nrepeat while number of chars of it < 3put " " before it -- option spaceend repeatput it into first word of line e of meif there is a window BotBar then show window BotBarhide bg btn "Building index:"hide bg btn "Meter"if gen then push cdset the hilite of bg btn ID zid to FALSEif there is a cd cn thengo cd cnelsedoMenu "New Card"set name of this cd to cnend ifput word 2 to 99 of x into fld "Mfg"sort lines of nput n into fld "Index"set scroll of fld "Index" to 0put "Total Products" & return & number of lines of n into fld "Total"if not gen thenunlock screen with iris opensend openCard to this cdend ifBuildScrif gen thenpop cdunlock screenend ifend ifend repeatelse if t or cn="Custom Search Index" or first char of cn="#" thenput By(it) into bGoNow second word of item b to 9 of it && item 1 to b-1 of itelse -- if cn = "$" thenGoNow first word of fld "Mfg" && itend ifend ifend GotLineon GoNow tget char 1 to 29 of tif there is a cd it of bg "Description" thenlock screengo cd it of bg "Description"unlock screen with iris openelseanswer "Sorry, that card seems to be missing!"end ifend GoNow</script>
</part>
<part>
<id>24</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>472</left>
<top>329</top>
<right>548</right>
<bottom>433</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Times</font>
<textSize>14</textSize>
<textStyle>plain</textStyle>
<textHeight>18</textHeight>
<name>Category Introduction</name>
<script></script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>61</left>
<top>93</top>
<right>550</right>
<bottom>105</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script></script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>53</left>
<top>104</top>
<right>65</right>
<bottom>448</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script></script>
</part>
<part>
<id>13</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>58</left>
<top>448</top>
<right>550</right>
<bottom>461</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script></script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>397</top>
<right>62</right>
<bottom>438</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Times</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Total</name>
<script></script>
</part>
<part>
<id>14</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>66</left>
<top>34</top>
<right>638</right>
<bottom>79</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>forceLeft</textAlign>
<font>Times</font>
<textSize>24</textSize>
<textStyle>plain</textStyle>
<textHeight>32</textHeight>
<name>Mfg</name>
<script></script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>396</left>
<top>76</top>
<right>551</right>
<bottom>99</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Garamond</font>
<textSize>16</textSize>
<textStyle>italic</textStyle>
<textStyle>bold</textStyle>
<name>Index of Products</name>
<script></script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>141</left>
<top>463</top>
<right>498</right>
<bottom>479</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>Building index:</name>
<script></script>
</part>
<part>
<id>17</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>219</left>
<top>465</top>
<right>496</right>
<bottom>477</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>meter</name>
<script></script>
</part>
<part>
<id>21</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>68</left>
<top>75</top>
<right>434</right>
<bottom>89</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>28</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>586</left>
<top>426</top>
<right>628</right>
<bottom>455</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>helpListFld</name>
<script>-- HELP DATA: DO NOT MODIFYHelp ,573,78,638,122,416,80,561,137,577,101,,, ¶Slide the cursor over objects to see their help balloons. Click here again to turn off the help feature.Print ,573,128,638,170,447,126,561,170,577,151,,, ¶The Print button will print out a list of products displayed.Find ,573,174,638,218,371,164,563,231,577,198,,, ¶The Find button takes you to the the Custom Search screen, where you can create a custom list of products that contain certain words or phrases in their product information screens.Quit ,573,224,638,266,433,227,562,262,577,248,,, ¶The Quit button will take you back to the Finder.Begin ,573,270,638,314,429,270,562,322,577,296,,, ¶The Begin button will take you back to the main menu to choose how to search for products.Back ,573,318,638,362,422,306,561,349,577,344,,, ¶The Back button takes you to the level you were on previously.Prev ,573,366,638,410,425,337,560,383,576,392,,, ¶The Prev button will take you to the list of products BEFORE this one.Next ,573,420,638,456,425,337,560,383,576,420,,, ¶The Next button will take you to the list of products AFTER this one.</script>
</part>
<part>
<id>19</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>67</left>
<top>108</top>
<right>550</right>
<bottom>125</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownset hilite of me to truerepeat until the mouse is upset hilite of me to the mouseloc is within rect of meend repeatend mouseDownon mouseUpif hilite of me then send "GotLine 1," & short ID of me to fld "Index"set hilite of me to falseend mouseUp</script>
</part>
<part>
<id>47</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>67</left>
<top>125</top>
<right>550</right>
<bottom>142</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownset hilite of me to truerepeat until the mouse is upset hilite of me to the mouseloc is within rect of meend repeatend mouseDownon mouseUpif hilite of me then send "GotLine 2," & short ID of me to fld "Index"set hilite of me to falseend mouseUp</script>
</part>
<part>
<id>48</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>67</left>
<top>142</top>
<right>550</right>
<bottom>159</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownset hilite of me to truerepeat until the mouse is upset hilite of me to the mouseloc is within rect of meend repeatend mouseDownon mouseUpif hilite of me then send "GotLine 3," & short ID of me to fld "Index"set hilite of me to falseend mouseUp</script>
</part>
<part>
<id>49</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>67</left>
<top>159</top>
<right>550</right>
<bottom>176</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownset hilite of me to truerepeat until the mouse is upset hilite of me to the mouseloc is within rect of meend repeatend mouseDownon mouseUpif hilite of me then send "GotLine 4," & short ID of me to fld "Index"set hilite of me to falseend mouseUp</script>
</part>
<part>
<id>50</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>67</left>
<top>176</top>
<right>550</right>
<bottom>193</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownset hilite of me to truerepeat until the mouse is upset hilite of me to the mouseloc is within rect of meend repeatend mouseDownon mouseUpif hilite of me then send "GotLine 5," & short ID of me to fld "Index"set hilite of me to falseend mouseUp</script>
</part>
<part>
<id>51</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>67</left>
<top>193</top>
<right>550</right>
<bottom>210</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownset hilite of me to truerepeat until the mouse is upset hilite of me to the mouseloc is within rect of meend repeatend mouseDownon mouseUpif hilite of me then send "GotLine 6," & short ID of me to fld "Index"set hilite of me to falseend mouseUp</script>
</part>
<part>
<id>52</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>67</left>
<top>210</top>
<right>550</right>
<bottom>227</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownset hilite of me to truerepeat until the mouse is upset hilite of me to the mouseloc is within rect of meend repeatend mouseDownon mouseUpif hilite of me then send "GotLine 7," & short ID of me to fld "Index"set hilite of me to falseend mouseUp</script>
</part>
<part>
<id>53</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>67</left>
<top>227</top>
<right>550</right>
<bottom>244</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownset hilite of me to truerepeat until the mouse is upset hilite of me to the mouseloc is within rect of meend repeatend mouseDownon mouseUpif hilite of me then send "GotLine 8," & short ID of me to fld "Index"set hilite of me to falseend mouseUp</script>
</part>
<part>
<id>54</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>67</left>
<top>244</top>
<right>550</right>
<bottom>261</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownset hilite of me to truerepeat until the mouse is upset hilite of me to the mouseloc is within rect of meend repeatend mouseDownon mouseUpif hilite of me then send "GotLine 9," & short ID of me to fld "Index"set hilite of me to falseend mouseUp</script>
</part>
<part>
<id>55</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>67</left>
<top>261</top>
<right>550</right>
<bottom>278</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownset hilite of me to truerepeat until the mouse is upset hilite of me to the mouseloc is within rect of meend repeatend mouseDownon mouseUpif hilite of me then send "GotLine 10," & short ID of me to fld "Index"set hilite of me to falseend mouseUp</script>
</part>
<part>
<id>56</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>67</left>
<top>278</top>
<right>550</right>
<bottom>295</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownset hilite of me to truerepeat until the mouse is upset hilite of me to the mouseloc is within rect of meend repeatend mouseDownon mouseUpif hilite of me then send "GotLine 11," & short ID of me to fld "Index"set hilite of me to falseend mouseUp</script>
</part>
<part>
<id>57</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>67</left>
<top>295</top>
<right>550</right>
<bottom>312</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownset hilite of me to truerepeat until the mouse is upset hilite of me to the mouseloc is within rect of meend repeatend mouseDownon mouseUpif hilite of me then send "GotLine 12," & short ID of me to fld "Index"set hilite of me to falseend mouseUp</script>
</part>
<part>
<id>58</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>67</left>
<top>312</top>
<right>550</right>
<bottom>329</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownset hilite of me to truerepeat until the mouse is upset hilite of me to the mouseloc is within rect of meend repeatend mouseDownon mouseUpif hilite of me then send "GotLine 13," & short ID of me to fld "Index"set hilite of me to falseend mouseUp</script>
</part>
<part>
<id>59</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>67</left>
<top>329</top>
<right>550</right>
<bottom>346</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownset hilite of me to truerepeat until the mouse is upset hilite of me to the mouseloc is within rect of meend repeatend mouseDownon mouseUpif hilite of me then send "GotLine 14," & short ID of me to fld "Index"set hilite of me to falseend mouseUp</script>
</part>
<part>
<id>60</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>67</left>
<top>346</top>
<right>550</right>
<bottom>363</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownset hilite of me to truerepeat until the mouse is upset hilite of me to the mouseloc is within rect of meend repeatend mouseDownon mouseUpif hilite of me then send "GotLine 15," & short ID of me to fld "Index"set hilite of me to falseend mouseUp</script>
</part>
<part>
<id>61</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>67</left>
<top>363</top>
<right>550</right>
<bottom>380</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownset hilite of me to truerepeat until the mouse is upset hilite of me to the mouseloc is within rect of meend repeatend mouseDownon mouseUpif hilite of me then send "GotLine 16," & short ID of me to fld "Index"set hilite of me to falseend mouseUp</script>
</part>
<part>
<id>62</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>67</left>
<top>380</top>
<right>550</right>
<bottom>397</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownset hilite of me to truerepeat until the mouse is upset hilite of me to the mouseloc is within rect of meend repeatend mouseDownon mouseUpif hilite of me then send "GotLine 17," & short ID of me to fld "Index"set hilite of me to falseend mouseUp</script>
</part>
<part>
<id>63</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>67</left>
<top>397</top>
<right>550</right>
<bottom>414</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownset hilite of me to truerepeat until the mouse is upset hilite of me to the mouseloc is within rect of meend repeatend mouseDownon mouseUpif hilite of me then send "GotLine 18," & short ID of me to fld "Index"set hilite of me to falseend mouseUp</script>
</part>
<part>
<id>64</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>67</left>
<top>414</top>
<right>550</right>
<bottom>431</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownset hilite of me to truerepeat until the mouse is upset hilite of me to the mouseloc is within rect of meend repeatend mouseDownon mouseUpif hilite of me then send "GotLine 19," & short ID of me to fld "Index"set hilite of me to falseend mouseUp</script>
</part>
<part>
<id>65</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>67</left>
<top>431</top>
<right>550</right>
<bottom>448</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownset hilite of me to truerepeat until the mouse is upset hilite of me to the mouseloc is within rect of meend repeatend mouseDownon mouseUpif hilite of me then send "GotLine 20," & short ID of me to fld "Index"set hilite of me to falseend mouseUp</script>
</part>
<part>
<id>26</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>475</left>
<top>332</top>
<right>543</right>
<bottom>428</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Category Introduction</name>
<script>on mouseDownset hilite of me to TRUEend mouseDownon mouseLeaveset hilite of me to falseend mouseLeaveon mouseUpget short name of this cdput "§" into first char of itpush cdlock screenset hilite of me to FALSEgo cd itunlock screen with zoom out slowend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>21</id>
<text><span class="style19">lease click an index entry below (or type a letter to auto-scroll)</span></text>
</content>
<content>
<layer>background</layer>
<id>24</id>
<text><span class="style183"></span><span class="style41">CLICKHERE</span><span class="style69">for an introductionto this category.</span></text>
</content>
<name>Index</name>
<script>on resetScrollget the scroll of bg fld "index"put it MOD 17 into scrollOverif scrollOver > 7then set the scroll of bg fld "index" to it + (17-scrollOver)else set the scroll of bg fld "index" to it - scrollOverend resetScrollon openCardglobal hitAListjjflushput short name of this cd into sget first char of sset visible of bg btn "Index of Products" to it is "$"get it is "#" and s ≠ "#Artificial Intelligence Prod"set visible of bg fld "Category Introduction" to itset visible of bg btn "Category Introduction" to itput fld "Index" into hitAListend openCardon closeCardhide bg btn "Index of Products"end closeCardon keyDown aKeyput bg fld "index" into holdMeget offset(return&aKey,holdMe)if it = 0 then pass keyDownput the number of lines in (char 1 to it of holdMe) into scrLnset the scroll of bg fld "index" ¬to scrLn*(the textHeight of bg fld "index")pass keydownend keydownon doNextif first char of short name of this cd < "A" thenif first char of short name of next cd < "A" thenlock screengo nextunlock screen with visual effect wipe leftelseget number of cd "Manufacturers"add 1 to itif it is the number of this cd then beepelselock screengo cd itunlock screen with visual effect wipe leftend ifend ifelse pass doNextend doNexton doPreviousif first char of short name of this cd < "A" thenif short name of prev cd ≠ "Manufacturers" thenlock screengo prevunlock screen with visual effect wipe rightelseget number of cd ID 11747subtract 1 from itif it is the number of this cd then beepelselock screengo cd itunlock screen with visual effect wipe rightend ifend ifelse pass doPreviousend doPreviouson doPrintglobal OKprintif OKprint is empty then put hilite of btn ID 24 of cd "Preferences" into OKprintif OKprint thenprint fld "Index"end ifend doPrinton Prebuildput short name of this cd="Names" into tlock screenput empty into mpush cdput (number of cds of bg "Description") - 1 into msif t thenget the rect of bg btn "Building index:"put (width of this cd - (78+ms+2)) div 2 into first item of itput first item of it + (78+ms+2) into third item of itset the rect of bg btn "Building index:" to itset the rect of btn "Building index:" of cd "Categories" to itend ifput 2 into igo first cd of bg "Description"set lockMessages to TRUErepeat msset cursor to busyput i into msgadd 1 to igo next cd of this bgget fld "CoName"put offset("•",it) into kif k≠0 then get char 1 to k-1 of itget word 1 to (number of words of it) of itif t then -- Namesput first line of fld "Cat" into qput word 1 to (number of words of q) of q into qput q into fld "Cat"get (fld "ProdName") & "," & q & ", by" && it & returnput it after melse -- Manufacturersif first line of m is not it thenput return after itput "    " before it -- 3 option-spaces & 8 spacesif it is not in m then put it after mend ifend ifend repeatset lockMessages to FALSEpop cdif t then put "Total Products" & return & ms into fld "Total"elseput number of lines of m into msput "Total Companies" & return & ms into fld "Total"end ifput "Sorting…" into msgsort lines of mset scroll of fld "Index" to 0put "Setting text styles…" into msgif t thenput empty into crepeat with i=1 to msset cursor to busyput i into msgget By(line i of m)-1put item it of line i of m & return after cdelete item it of line i of mend repeatput c into cd fld "Cats"put m into fld "Index"repeat with i=1 to msset cursor to busyput i into msgget By(line i of m)set textStyle of item it to 99 of line i of fld "Index" to plainset textSize of item it to 99 of line i of fld "Index" to 12end repeatelseput m into fld "Index"repeat with i=1 to msset cursor to busyset textStyle of first word of line i of fld "Index" to plainset textSize of first word of line i of fld "Index" to 9set textFont of first word of line i of fld "Index" to "Geneva"end repeatend ifput "Building scrolling table…" into msgif t then BuildScr else BuildScr 12hide msgend Prebuild</script>
